{"id":4,"date":"2020-07-29T13:38:02","date_gmt":"2020-07-29T13:38:02","guid":{"rendered":"http:\/\/hede.org\/?p=4"},"modified":"2020-08-18T12:09:18","modified_gmt":"2020-08-18T12:09:18","slug":"vbe-excel-function-for-extracting-age-from-danish-social-security-number-cpr-number","status":"publish","type":"post","link":"http:\/\/hede.org\/?p=4","title":{"rendered":"VBE -Excel Function for extracting age from danish Social security number ( CPR number)"},"content":{"rendered":"\n
Public Function CPRAGE(InCPR As String, InpYear As String)<\/strong>\n Dim TAge As String<\/strong>\n Dim IAge As Integer<\/strong>\n Dim Placing As String<\/strong>\n Dim Pla As Integer<\/strong>\n Dim FinY As Integer<\/strong>\n 'converting<\/strong>\n 'extracting the right integers and converting integers into numbers<\/strong>\n 'year of birth<\/strong>\n IAge = Mid(InCPR, 5, 2)<\/strong>\n TAge = CInt(IAge)<\/strong>\n 'indicator of millenium of birth<\/strong>\n PlacingA = Mid(InCPR, 7, 4)<\/strong>\n Placing = CInt(PlacingA)<\/strong>\n 'converting year string into integer<\/strong>\n FinY = CInt(InpYear)<\/strong>\n\nIf ((Placing >= 4000 And Placing <= 4999) And (TAge >= 0 And TAge <= 36)) Then<\/strong>\nPla = 2000<\/strong>\nEnd If<\/strong>\n If ((Placing >= 4000 And Placing <= 4999) And (TAge >= 37 And TAge <= 99)) Then<\/strong>\nPla = 1900<\/strong>\nEnd If<\/strong>\nIf ((Placing >= 5000 And Placing <= 5999) And (TAge >= 0 And TAge <= 57)) Then<\/strong>\nPla = 1900<\/strong>\nEnd If<\/strong>\nIf ((Placing >= 1 And Placing <= 999) And (TAge >= 1 And TAge <= 150)) Then<\/strong>\nPla = 1900<\/strong>\nEnd If<\/strong>\n If ((Placing >= 1000 And Placing <= 3999) And (TAge >= 1 And TAge <= 150)) Then<\/strong>\nPla = 1900<\/strong>\nEnd If<\/strong>\nIf ((Placing >= 5000 And Placing <= 8999) And (TAge >= 0 And TAge <= 57)) Then<\/strong>\nPla = 2000<\/strong>\nEnd If<\/strong>\nCPRAGE = FinY - (Pla + TAge)<\/strong> 'Jorgen Hede -All rights reserved 2016<\/strong> End Function<\/strong><\/pre>\n","protected":false},"excerpt":{"rendered":"
Public Function CPRAGE(InCPR As String, InpYear As String) Dim TAge As String Dim IAge As Integer Dim Placing As String Dim Pla As Integer Dim FinY As Integer ‘converting ‘extracting the right integers and converting integers into numbers ‘year of birth IAge = Mid(InCPR, 5, 2) TAge = CInt(IAge) ‘indicator of millenium of birth PlacingA … <\/p>\n
Continue reading “VBE -Excel Function for extracting age from danish Social security number ( CPR number)”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-4","post","type-post","status-publish","format-standard","hentry","category-codebits"],"_links":{"self":[{"href":"http:\/\/hede.org\/index.php?rest_route=\/wp\/v2\/posts\/4","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/hede.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/hede.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/hede.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/hede.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4"}],"version-history":[{"count":3,"href":"http:\/\/hede.org\/index.php?rest_route=\/wp\/v2\/posts\/4\/revisions"}],"predecessor-version":[{"id":44,"href":"http:\/\/hede.org\/index.php?rest_route=\/wp\/v2\/posts\/4\/revisions\/44"}],"wp:attachment":[{"href":"http:\/\/hede.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/hede.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/hede.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}