كيفية تشيك تاريخ الجهاز

صادفتني مشكلة وهي كالاتي ، في كثير من الاحيان يكون  date format  مختلف عن ما اريد مثلا dd-MMM-yyyy واحتاج ان اعمل check عليه ما هي الطريقة السليمة لذلك . . . . . . .
بالكود نعمل ما يلي

string date_format
 

RegistryGet("HKEY_CURRENT_USER\Control Panel\International", "sShortDate", RegString!,date_format)
   
//    messagebox("Test date",date_format)
   
   
    if Upper(date_format) <>"DD/MM/YYYY" then
        messagebox("Date Format Problem ","please adjust your date setting as 'dd/mm/yyyy' ")
    Close(this)  

    end if

اولا نرجع قيمة date من  << control panel >> Regional and Language Options  عن طريق RegistryGet   ونخزن القيمة كـ string   وهي هنا date_format  ثم نقوم بعمل IF Statement لتشيك القيمة الراجعه ، هل هي كما نريد ام ماذا ؟؟؟؟؟؟؟؟ 

في حال لم يكن تنسيق التاريخ كما اريد اغلق الشاشة التي انا متواجد بها لحين تغيير تنسيق التاريخ من control Panel . 

تم تجربة هذا الكود على PB 11.5 و تمت كتابته في event Open